Aminet 23/Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso/Aminet/text/edit/GED_Hexedit.lha/GED_Hexedit/hex/english/searchascii.ged

Text File | 1997-11-13 | 2KB | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;'QUERY Var=Suchstring Name=Find';parse arg start;if start=1 then;do;'REQUEST Body="Enter string to be searched in ASCII format (max 16 chars):" Title="Input" Button="OK|Cancel" Var=Suchstring Min=1 Max=16 String Old=' Suchstring;if RC>0 then;do;'UNLOCK';exit;end;end;if length(Suchstring)=0 then;do;'UNLOCK';exit;end;'QUERY Var=Startzeile Name=Line';'QUERY Var=Startspalte Name=Column';Z1=Startzeile;S1=Startspalte;Zeichenanz=length(Suchstring);Actzeichen=left(Suchstring,1);'QUERY Var=Anzzeilen Name=Lines';'QUERY Var=grkl Name=UseCase';do forever;'FIND Next Quiet String='Actzeichen;'SET Name=Find Value='Suchstring;'QUERY Var=Z2 Name=Line';'QUERY Var=S2 Name=Column';if Z1=Z2&S1=S2 then;do;'GOTO Line='Startzeile;'GOTO Column='Startspalte;'REQUEST Body="Search string not found" Title="Result" Button="OK"';'UNLOCK';exit;end;if S2>47&S2<64 then;do;if Zeichenanz=1 then;do;'UNLOCK';exit;end;'QUERY Var=Inhalt Name=Buffer';if (S2+Zeichenanz-1)<64 then;do;Teil=substr(Inhalt,S2,Zeichenanz);if grkl=false then;do;if upper(Teil)=upper(Suchstring) then;do;'UNLOCK';exit;end;end;else;do;if Teil=Suchstring then;do;'UNLOCK';exit;end;end;end;else;do;Teil=substr(Inhalt,S2,63-S2);Rest=Zeichenanz-64+S2;if Z2<Anzzeilen then;do;'DOWN';'QUERY Var=Inhalt Name=Buffer';'UP';'GOTO Column='S2;if length(Inhalt)>Rest+47 then;do;Teil=Teil||substr(Inhalt,48,Rest);if grkl=false then;do;if upper(Teil)=upper(Suchstring) then;do;'UNLOCK';exit;end;end;else;do;if Teil=Suchstring then;do;'UNLOCK';exit;end;end;end;end;end;end;if S2<46 then;do;'GOTO Column=47';S2=47;end;Z1=Z2;S1=S2;end;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit